home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 7 / DOS222.dsk / TEN.REASONS.bas < prev    next >
BASIC Source File  |  2012-02-16  |  4KB  |  103 lines
  1. 80  REM  *********************
  2. 82  REM  *
  3. 84  REM  *  "TEN REASONS TO READ"
  4. 86  REM  *
  5. 88  REM  *  COPYRIGHT JULY 1987
  6. 90  REM  *
  7. 92  REM  *  PHIL SHAPIRO
  8. 94  REM  *
  9. 96  REM  **********************   
  10. 100  HOME 
  11. 120  FOR D = 1 TO 1000: NEXT D
  12. 130  SPEED= 0
  13. 140  VTAB 8: HTAB 7: PRINT "TEN REASONS TO READ A LOT"
  14. 150  FOR D = 1 TO 800: NEXT D
  15. 160  VTAB 12: HTAB 4: PRINT "OF BOOKS, MAGAZINES, OR ANYTHING"
  16. 170  FOR D = 1 TO 2500: NEXT D
  17. 180  HOME 
  18. 190  FOR D = 1 TO 1000: NEXT D
  19. 195  GOSUB 2000
  20. 197  HOME 
  21. 198  FOR D = 1 TO 800: NEXT D
  22. 200  VTAB 2: PRINT "1. READING IS FUN."
  23. 210  FOR D = 1 TO S: NEXT D
  24. 220  VTAB 4: PRINT "2. THE MORE YOU READ, THE MORE YOU KNOW"
  25. 230  FOR D = 1 TO 200: NEXT D
  26. 240  VTAB 6: PRINT "ABOUT THINGS."
  27. 250  FOR D = 1 TO S: NEXT D
  28. 260  VTAB 8: PRINT "3. YOU CAN MAKE FRIENDS WITH THE PEOPLE"
  29. 270  FOR D = 1 TO 200: NEXT D
  30. 280  VTAB 10: PRINT "IN BOOKS."
  31. 290  FOR D = 1 TO S: NEXT D
  32. 300  VTAB 12: PRINT "4. READING MAKES YOU A BETTER SPELLER."
  33. 310  FOR D = 1 TO S: NEXT D
  34. 320  VTAB 14: PRINT "5. BOOKS ARE A NEAT THING TO TALK ABOUT"
  35. 330  FOR D = 1 TO 200: NEXT D
  36. 340  VTAB 16: PRINT "WITH FRIENDS."
  37. 350  FOR D = 1 TO S: NEXT D
  38. 360  VTAB 18: PRINT "6. READING TEACHES YOU NEW WORDS."
  39. 370  FOR D = 1 TO S: NEXT D
  40. 380  VTAB 20: PRINT "7. THE MORE STORIES YOU READ, THE MORE"
  41. 390  FOR D = 1 TO 200: NEXT D
  42. 400  VTAB 22: PRINT "IDEAS YOU WILL HAVE FOR YOUR OWN STORIES"
  43. 410  FOR D = 1 TO 200: NEXT D
  44. 420  PRINT "."
  45. 430  FOR D = 1 TO S: NEXT D
  46. 440  PRINT : PRINT "8. BY READING A BOOK, YOU CAN GO ON AN"
  47. 450  FOR D = 1 TO 400: NEXT D
  48. 460  PRINT : PRINT "EXCITING ADVENTURE WITHOUT EVEN LEAVING"
  49. 470  FOR D = 1 TO 400: NEXT D
  50. 480  PRINT : PRINT "YOUR BEDROOM !"
  51. 490  FOR D = 1 TO S: NEXT D
  52. 500  PRINT : PRINT "9. READING IS A HOBBY YOU CAN TAKE"
  53. 510  FOR D = 1 TO 350: NEXT D
  54. 520  PRINT : PRINT "ANYWHERE.  JUST CARRY YOUR FAVORITE BOOK"
  55. 530  FOR D = 1 TO 350: NEXT D
  56. 540  PRINT : PRINT "WITH YOU WHEREVER YOU GO."
  57. 550  FOR D = 1 TO S: NEXT D
  58. 560  PRINT : PRINT "10. YOU CAN LEARN WHATEVER YOU WANT TO"
  59. 570  FOR D = 1 TO 200: NEXT D
  60. 580  PRINT : PRINT "LEARN FROM BOOKS."
  61. 590  FOR D = 1 TO 800: NEXT D
  62. 600  PRINT : PRINT "FOR EXAMPLE, YOU COULD LEARN ABOUT"
  63. 610  FOR D = 1 TO 600: NEXT D
  64. 620  PRINT : PRINT "FISHING, OR CAMPING, OR AIRPLANES, OR"
  65. 630  FOR D = 1 TO 400: NEXT D
  66. 640  PRINT : PRINT "SEWING, OR VOLCANOES, OR WHALES, OR"
  67. 650  FOR D = 1 TO 400: NEXT D
  68. 660  PRINT : PRINT "COOKING, OR EVEN .......... . COMPUTERS."
  69. 670  FOR D = 1 TO 3000: NEXT D
  70. 675  PRINT : PRINT "  * * * * * * * * * * * * * * * * * *  "
  71. 676  FOR D = 1 TO 400: NEXT D
  72. 677  PRINT : PRINT "       WRITTEN BY PHIL SHAPIRO"
  73. 678  PRINT : PRINT "       COPYRIGHT JULY 1987"
  74. 679  FOR D = 1 TO 800: NEXT D
  75. 680  PRINT : PRINT : PRINT "WOULD YOU LIKE TO READ THIS AGAIN ?"
  76. 690  FOR D = 1 TO 600: NEXT D
  77. 700  PRINT : PRINT "TYPE EITHER 'YES' OR 'NO'."
  78. 710  FOR D = 1 TO 400: NEXT D
  79. 720  PRINT : PRINT "AND THEN PRESS 'RETURN'."
  80. 730  INPUT AN$
  81. 740  IF AN$ = "YES"  THEN  GOTO 100
  82. 750  IF AN$ = "'YES'"  THEN  GOTO 100
  83. 760  IF AN$ = "NO"  THEN  HOME : END 
  84. 770  IF AN$ = "'NO'"  THEN  HOME : END 
  85. 780  GOTO 730
  86. 790  END 
  87. 2000  VTAB 8: HTAB 5: PRINT "PLEASE CHOOSE A READING SPEED."
  88. 2010  FOR D = 1 TO 600: NEXT D
  89. 2020  VTAB 12: HTAB 6: PRINT "TYPE IN EITHER 1,2,3, OR 4."
  90. 2030  FOR D = 1 TO 500: NEXT D
  91. 2040  VTAB 16: HTAB 20: PRINT "1. SLOW"
  92. 2050  FOR D = 1 TO 200: NEXT D
  93. 2060  VTAB 18: HTAB 20: PRINT "2. MEDIUM"
  94. 2070  FOR D = 1 TO 200: NEXT D
  95. 2080  VTAB 20: HTAB 20: PRINT "3. FAST"
  96. 2090  FOR D = 1 TO 200: NEXT D
  97. 2100  VTAB 22: HTAB 20: PRINT "4. SUPER-FAST"
  98. 2110  GET SP
  99. 2120  IF SP = 1  THEN  SPEED= O:S = 4000: RETURN 
  100. 2130  IF SP = 2  THEN  SPEED= 10:S = 2500: RETURN 
  101. 2140  IF SP = 3  THEN  SPEED= 30:S = 1500: RETURN 
  102. 2150  IF SP = 4  THEN  SPEED= 80:S = 500: RETURN 
  103. 2160  GOTO 2110